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PPARAAAARAAARASLAASALALALAALALASA EASES ES EELS AREAS EERE ASSESSES RRR E RRS R EAE SS OD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** 

** ® 
** ® 
:* ® 
** ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR VANY OTHER = 
te COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. . 
** ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. x 
* t 
** * 
** ® 
:* ft 
** ie 
** * 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILIT 
IS NOT SUPPLIED BY DIGITAL. 


I 
H 


(ARR RABRRBRARARASAAAARAAARERAASASEAARARASARARRLARAR ERASERS RRRRERARRRRR RASA SS ES | 


OOCoCoCooQCoQoQoQoQoQoQoQoQoQooooooooo 
OOOCCCoooooCoooooooooooooooo 
SOOCSCCOCOOOCOCOCSOOOCOCOOOOOOCOOoOOoOooO 
feolelelelelelelelelelelelelololeleloleleleleloleolelo) 
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moose SCAN FILENAME STRING at a 9 00:33: 3 Aes A 5 Oe sere 2 Y hake Page (3) 
++ 
Facility: 
RMS 
Abstract: 


This routine will pecse a Hie specification into it's 
component parts. This routine must not call other RMS 
routines or assume any normal RMS conventions. It can 
oe cote Me MY a user mode system service outside the 
context o 


Environment: 
VAX/VMS, executive mode (RMS) system serivce 


Author: 
Keith B. Thompson Creation Date: 3-Mar-1983 
Modified By: 
v03-011 RASO313 n Sc nearer 18-Jun-1984 
Accept a hinting a, a valid filename character. 
V03-010 RASO275 Ron & Schecter 20-Mar-1984 


Fix RASO259 to recognize ‘‘Looo,*]"* and ‘'[*,*]'' as 
Fatia UIlC=format directories. Also disallow '<('’ and '’)"’. 


V03-009 RASO259 Ron Schaefer 28-Feb-1984 
Convert to being table-driven. Remove most of the Little 
subroutines and use attribute/tables instead. 


V03-008 RASO228 Ben Schaefer 4-Jan-1984 
Recognize ‘[nnn,J"' as a syntax error; namely FSCBSV_NULL 
and FSCBS$V_GRPMBR is not valid. 


V03-007 RASO223 n Schaefer 16-Dec-1983 
Change $SCBDEF or SCBSxxx to SFSCBDEF and FSCBSxxx. 


VO3-006 RASO199 Ron Schaefer 6-0c t-1983 
pepopnize od pendgdca: as a valid device name. 
as a valid device name. 
Completely FScognize "S$" as a valid initial character. 


v03-005 RASO190 Ron Schaefer 11-Sep-1983 
Correct bugcheck caused b Sin tet cara than 8 directory 
levels. n that case FOUND_DIR RO not-set. 


v03-004 KpT0562 Keith 8B. Thompson 13-Jul-1983 
Allow root directory between device and real directory 


v03-003 KBT0534 Keith B. Thompson oer, ~1983 
Don't allow real nodes after null nodes and allow 
minus signs in the niddte of directory strings (yec!) 


elem ele lee lolelololeleleleleleloleoleleleoleleoleololaleleoleleleleoleloleleoleoleleleleleleoleololelaoleolelololeolololola) 
COCOC9 0909 INI NIN NNN DS DE DEO DS DS DDS TUTTE BS BB BB EE ENNIO 
FWD 9 OO NOU EWN 9 OD NAME WN 0 ODNAUE WN (OOO NAUES WN OODONAUSWN—OO0 
rrr rere rerererererere rere rerererererererererererererererererererererervererererererererererererererererererererer 
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> 3 
§ ; v03-002 KBT0527 Keith B. Thompson 24-May-1983 
: Set SCBSV_PWD correctly and remove global symbols 
§ : v03-001 KBT0508 Keith B. Thompson 4-May-1983 
0; Change SCB$V _aces” to SCBSV_ACS and add concealed device 
00 91 ¢ detection 
000 35 3 
C200 935 3-- 


-SBTTL DECLARATIONS 


$F SCBDEF 


$6 
, ; Include Files: 
00 
01 
02 
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-SBTTL RMSSCAN_STRING, Main Parsing Routine 


RMOSCAN S 
v04-000 R 


+ 
+ 


Functional Description: 
Working registers: 


RO - Return status 

R1 - Current character 

R - Local work register 

R - Flags 

RG - Size of token 

RS - Address of token 

R6 - Length of string 

R? - Address of current character 
R11 - Address of control tlock 


State Format: 
label = Description 
token => Label 3; Transitions 


Tokens are parsed in this order: 


eos 3 eng of string 
numeric 3; 0- 
alpha_numeric ; ASCII alpha numeric characters 
eightbit ; 8 Bit character set 
‘ 3; period 
: 3; semi-colon 
; colon 
3 underscore 
Ct ()) : braket 
< ©) 3; angle braket 
| h 3; comma 
3; quote 
special 2s 
wild 735. : 2 
lambda 3 anything (including eos) 


Calling Sequence: 
BSBW RMS$SCAN_STRING 
Input Parameters: 


R6,R7 = input sere descriptor 
R14 - scan control block 


Implicit Inputs: 
none 


MEARS O ODONANE WIN O OD NAU EWN $9 OO NAME WN 0 ODNAUE WN OC OODNOUSWNM—ONO + pen 
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Outputs: 

Control block filled in 
Implicit Outputs: 

Ri=-R7 Destroved 
Completion Codes: 


SS$_NORMAL 
SCNS_SPECNF 


Side Effects: 
None 


v0e=600 Rn =$P-1986 16:22:26 ERMSVSRCTRMOSCAN-MAR Seeatih 


RMS .SRCJRMOSCAN.MAR; 1 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


RMSSCAN_STRING: : 
MOVCS P) ,#0,#F SCBSC_BLN, (R11) 


CB$Q_FILESPEC+4(R11) 


zero the control block 
pointer to first token 
save start address 
clear flags and size 
parse the string 

set success 

exit 


68 0104 8F 00 3 
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5 RS 
08 AB FS 
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C 
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; quit if invalid or no more 


; get next character 
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RMSSCAN_STRING, Main Parsing Routine -SEP- 2:26 CRMS.SRCIRMOSCAN.MAR; 1 
1 3 
138 03 ; $1 - character was alpha numeric 
122 1 eos -> NAME1 
15 \¢ 3 alpha_numeric => $1 
132 13 3 s -> NAME 
1 "es 5 : -> NAME 
155 12 2 : -> $4_4 
0155 16 ; special -> $1 
O22 17 : wild -> $3 
015 18 ; Lambda -> ACS 
Be 
02F6 29 155 sf $1 BSBW GET_CHAR ; get next character 
6A 13 0158 $§ BEQL NO_ 3 quit if invalid or no more 
F5 0461'CF 51 3 15A $ BBS R1,W*ALPHA_NUM,S1 
- 3 1 169 4 CMPB R1,#C_DOT 
gD 13° 016 25 BEQL x 
06 1 91 8182 $$ CMPB R1,#C_SEMI 
E8 13 0168 2 BEQL N2_A 
oo 3 91 O16A 8 30$ CMPB R1,#C_COLON 
03 12 016D 9 BNEQ 40$ 
OOEC 31 O16F 0 BRW $4_4 
08 51 91 0172 331 40$:  CMPB  R17#C_WILD 
O5 12 0173  33¢ BNEQ Acs 
0096 31 0177 #333 S3_A: BRW $3_W 
017A 38 3334 
Q17A = 335 : : 
O17A $59 : ACS - looking for access control string of the form: 
O17A 3= 337 gx vf : 
017A 38 ; abc...xy2'':: 
O17A 39 ; 
gia re : if not found it transfers to NAMEO 
O17A 306 3 This routine is branched to from above and S4_1 
O17A 43 ; 
Q17A 44 
7— 56 67D O17A 45 ACS: mMoVva R6,-(SP) ; save place in string 
0B 51 £91 017d 46 CMPB R1,#C_QUOTE 3 starting quote? 
3F 2 O18 47 BNEQ ©: 908 
56 D7 018 49 10$: DECL R6 ; loop until we have a 
38 4619 «#2018 50 BLSS 90$ ; terminating quote 
22 44 91 136 51 CMPB (R7)+,#*°A/"'/ 3 then check for ‘::° 
F 12 i 26 BNEQ 10$ 
56 602 4 188 54 SUBL2 #2,R6 3: must have '::° 
, ee 18E 55 BLSS 0 ; if not exit 
3A3A BF 87 B1 0190 56 CMPW (R7)+,#°A/::/ 
2A «12 «+0195 57 BNEQ : not quite 
197 58 SSB #FSCBSV_ACS,R3 : flag that a acs was seen 
5E 98 C0 198 59 ADDL s ; restore stack : 
54 57 5 C 19 60 SUBL R5,R7,R4 3; get length of string 
0B 54 OD OTA 61 CMPL Ra. aii 3 are there enough to have a pw? 
24 19 OIA $¢ BLSS NODE 1 3 no, a 4 test 
73736170 8F FS A7 D1 OQIA 36! CMPL -11(R7) ,#*A/pass/ : check the first half 
1A 12 «O1AF = 364 BNEQ NODE 1 3 no 


a 


NO 


RMOSCAN SCAN FILENAME STRING 16-SEP-1984 00:35:34 VAX/VMS Macro Vv04-00 Page 11 
v04-000 RMSSCAN_STRING, Main Parsing Routine iets fi 90:33:36 YAMS SRCIRMOSCAN MARS 1 ° 1, 
64726F77 8F FO AZ OI 1B1 $3 CMPL -7(R7) ,#*A/word/ 3 check the second half 
10 12 0189 $ BNEQ 3 no 
188 6 SSB #FSCBSV_PWD,R3 3; got one 
OA 11 Hs re BRB NODE1 3 Success means parse a node 
56 8— 7D are ii 90$: MOVG (SP)+,R6 3; restore pointers 
O1cE 31 Bits a} NO_A: BRW NAMEO ; failure means we only have 


a name 


Si oe Ree ee Re gue 


RMOSCAN SCAN FILENAME STRING 16-SEP-1984 00:35:34 VAX/VMS Macro v04-00 Page 1 
v04-000 RMSSCAN_STRING, Main Parsing Routine ety 98:33:36 ERMS 5. SRCIR mos SCAN.MAR; 1 . (8) 
1C7 74; 
1C7 75; NODE - Node was found 
1¢7 £6 3 
1C7 “3 lambda => SO 
1C7 78 ; 
1C7 79 
\ee 0 ASSUME FSCBSB_FLDFLAGS EQ 0 
» 2 3 cS 1¢7 SS NODE: SUBL3 ; get the Length 
0B 6B OO € wee 83 NODE1: BBCS Peet pen NODE, (R11) ,10$ : is this the first node 
44 AaB 14 €0 OICF 84 BBS #FSCBSV_NULL, *FSCBS$O -NODE1(R11),- 3; there better not be a null: 
Ma 01D3 82 Bes ; node present, if so exit 
OC AB 4 AO 0104 6 ADDW2 4 ,FSCB$Q_NODE(R11) : no, simply add Length 
04 11 01D8 387 RB B08 ; 
OC AB 54 7D ODA 88 10$: ova R4,FSCB$Q_NODE(R11) 3: yes, ee 4: whole gence sper 
50 01 AB 9A O1D 89 20$:  MOVZBL FSCB$B_NOBES(R11),RO i get number of nodes 
08 50 #B1 OTE 90 CMPW RO, #F SCBS$C _MAXNODE ; if gtr then 8 don't copy it 
08 14 OIE 91 BGTR  30$ ; 
™ > CO O1E7 38 ADDL2 R3,R4 ; set local flags 
44 AB4O 65540 «= 7D «COO1EA 39 MOVQ R4,FSCB$Q_NODE1(R11) CROJ 3; copy into proper descriptor 
01 AB 96 OQO1EF 394 30S: INCB FSCB$B_NOBDES(R11) ; up count of nodes 
04 AB 54 AO O1F2 $02 ADDW2 R4,FSC $cBS0 _FILESPEC(R11) 3 keep running © sum 
55 57 DO O1F6 96 OVL R7,R5 3; update pointer 
53 D4 O1F9 397 CLRL R3 ; clear flags for next time 
FFI9 = 31 ate $05 BRW $0 ; ht « processing 


eS oe 


RMOSCAN SCAN FILENAME STRING 16-SEP-1984 00:35:34 VAX/VMS Macro Vv04-00 Page 13 
yoe=000 RMSSCAN_STRING, Main Parsing Routine ae et 93:33:36 RMS .SRCIRM mos SCAN.MAR; 1 7 (9) 

1FE 403 ; 
ie 2 ¢ 3 $2 - Initial character was ':' can only be null node name 
1FE 404 ; eos => EOS 
1FE 405 ; : -> NODE 
1FE 406; Lambda => EOS 

O1FE 407 ; 

O1FE 38 

O1FE 409; 

Bite rt ; NOTE: if a node has already been seen then this is a bad syntax 

pire tig 
1FE 41 ASSUME FSCBS$B_ AO EQ 0 

O1FE 414 ASSUME FSCBS$V_NODE EQ 0 

O1FE 415 

OF 6B €E8 OTFE 416 S2: BLBS (R11),E ; bad! 
0201 417 SSB arsca$y *hOLL. R3 > set null field flag 
0246 30 0205 418 BSBW GET CHAR ; get next character 
05 13 0208 419 BEQL 0S-B : quit if invalid or no more 
05 51 £491 O20A 420 CMPB R1,4C_COLON 
B8 13 020D 421 BEQL NODE 
05 O20F 422 EOS_B: RSB 
0210 423 


RMOSCAN SCAN FILENAME STRING 16-SEP-1984 00:35:34 VAX/VMS Macro v04-00 Page 14 RM 
v04- RMSSCAN_STRING, Main Parsing Routine tet yi 99:33:36 RMS .SRCIRMOSCAN.MAR; 1 : (10) vO 
1 425 ; 
! ? § ; $3 - A character was detected which can only apear in name or type 
1 4 § 3 eos -> NAME1 
1 429 ; alpha_numeric => § 
1 430 ; eightbit => § 
1 431 ; . => ae 
1 4 ¢ § : => NAME 
1 433 ; special >> 3 
0210 434 ; wild > § 
0 15 ? 23 Lambda -> NAMEO 
1 4 : §3W SSB #FSCBSV_WILD,R3 ; set wildcard 
0237 39 0214 438 $3: BSBwW GET_CHAR 3 get next character 
AB 13 0217 439 BEQL NO_ ; quit if invalid or no more 
FS 0461'CF 51 EO 0219 440 BBS R1,W*ALPHA_NUM,S3 
08 51 91 O21F 441 CMPB R1,#C_WILD 
344 13 0222 rr BEQL $3_W 
04 1 91 0224 44 CMPB R1,#C_DOT 
05 13 0227 444 BEQL N2_ 
06 51 91 0229 445 CMPB R1,4C_SEMI 
96 12 QO22C 446 BNEQ NO_A 
O17F 31 O22E 447 N2_B: BRW NARE2 


FS 0461'CF 
08 


05 


WO VT IO UI 
Wm Ww OS HS ST 


o 
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Wo 
_~) 


FF IF 
FF69 


w0-] 0 0 OOM ww 
AWW MMM OW 


ww 
=> 


o-0-w 
AWWO 


>= 
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> PF POOWwWmMmmmmmmmmm 


MMMmD DW OOMWoOmnMwd OO LS MOR LF SS eeoe=*T 
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“sz 
= 
ft 


mw 
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BIEN 2 0 OOO NAME WN O ODO NAU EWN (0 OD NAME WN O OONOAULSWNON0 + = 


RING 
Main Parsing Routine 


$4 


t 
Lambda 


$4_4 
eos 
Lambda 


16-SEP-1984 00:35:34 VAX/VMS Macro v04-00 
~eee rT bhe 98:33:38 ANCES Mace Vos 


- Initial character was ‘'_' 


eos => NAMEO 
Opes paneer => $4 
wild -> $3 
: => $4.4 
-> NAME 
=> NAME 
=> ACS 
-> NAMED 
GET_CHAR 3 get next character 
10$ ; quit if invalid or no more 
R1,W*ALPHA_NUM,S4 
R1,#C_WILD 
$3_W 
R1,#C_COLON 
$4_4 
R1,#C_DOT 
N2_B8 
R1,#C_SEMI 
N2_B 
Ri #C_QUOTE 
NAMEO 
ACS 
NODE 
- We have found a ':" which could be a device or node 
-> DEVICE 
-> NODE 
-> DEVICE 
GET CHAR ; get next character 
DEVICEO 3 Quit if invalid or no more 
R1,#C_COLON 
$4_3 3; we have a node 
R6 ; if this is not a node 
R?7 ; back up one character 
DEVICE ; and get device name 
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yoe2000 RMSSCAN_STRING, Main Parsing Routine mets 90:33:36 RMS .SRCIRMOSCAN.MAR; 1 ° (13) 
AB 40 ; 
~ ‘] : $5 - 'C' or '<' was detected 
AB rk $ Check for rooted eeresentye if so copy the descriptors into the correct 
| rf: ; set and check for a normal directory 
AB rk} 3 
AB 47 ; If rooted directory 
B89: > E0S 
3 os - 
aa 550: f => $8 
AB 51 3 < => $5 
AB 26 3 alpha_numeric => $7 
AB as . => NAME2 
02AB 54 ; ;. => NAME2 
02AB 222 ; wild -> $7 
02AB 2$ Tas Lambda => $6 
O2AB 557 ; 
O2AB 558 ; 
O2AB 559 ; If normal directory 
O2AB 560 ; 
02AB 2) 3 eos -> EOS 
02AB 66 : alpha_numeric <-> $7 
O2AB 563; . -> NAME2 
O2AB 3564 ; 3 -> NAME2 
02AB a2 : wild -> $7 
02AB 66 ; Lambda -> $6 
O2AB 567 ; 
8 AB 568 
o193 30 AB 569 S5 BSBW SCAN_DIRECTORY 
3A 50 €9 O2AE 570 BLBC R 
37 53 1A €1 O2B1 571 BBC #F SCB$V_ROOTED,R3 DIRECTORY ; is this root directory 
32 68 9¢ ES 0285 es BBSS #FSCBSV ROOT, (R115 ,E0S_G 3; can only be one root 
54 | s~* C 8 B9 7 SUBL3 R5,R7,RS 
54 53 £0 BD 74 10$: ADDL2 = F.3,R4 3; set any flags 
1C AB OG D 02C0 575 MOVa 4, FSCB$Q_ROOT(R11) :; copy descriptor 
04 AB «54 = AO 8 c 278 ADDW2 R4,FSCBSQ_FILESPEC(R11) 3; keep running sum 
02C 578 ; 
: Th ; Copy the normal directory descriptors into the rooted directory ones 
02C $81 ' 
0040 8F 28 Q f 5 § MOVC3 #<FSCBSC_MAXROOT*8>,- 3; copy ail the descriptors 
00C4 CB CC 3 FSCB$SQ_DIRECTORY1(R11),- 
0084 CB CF 4 FSCB$Q_ROOT1(R11) 
02 AB b3 AB «90 de : 5 MOVB FSCBSB_DIRS(R11),FSCB$B_ROOTS(R11); copy count of roots 
a8 94 D § CLRB FSCBSG OURS (RIT) 3: zero count 
55 5 dO DA MOVL R7,R5 
53 Be DD 8 CLRL R3 
016C ° DF 9 BSBW GET_CHAR ; get next character 
9 1 E2 90 BEQL EOS G : Quit if invalid or no more 
09 1 91 E4 91 CMPB R1,#C_OPAREN 
C2 13 E7 35 BEQL $5 
26 =O €9 9 BRB DIR1 
05 E8 594 €0S_G: RSB 
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v04-000 RMSSCAN_STRING, Main Parsing Routine gr SE = 38 98 33 36 LRMS. SRCJRMO OSCA N.MAR; 1 . (14) 
45 98 DIRECTORY: 
3 38 ASSUME FSCBSB_FLDFLAGS EQ 0 
98 8 EC ? 0 BISB orscesn DIRECTORY, (R11) :; set dir flag 
54 C EF 1 SUBL RS,R7,RS 3; get size Mi total dir spec 
54 bg B1 fa) el § CMPW 3 was cite R.. null directory? 
4 12 F 6 BNEQ 1 s or 
FB 604 SSB #FSCBSV_NULL,R3 3; if so ont over all bit. 
54 «53 0 FC oR? 10$ ADDL2 4 3; set any flags 
ee AB OSG D FF 6 $ MOVQ R4,FSCBSQ_ DIRECTORY(R11) ; copy descriptor 
4 ae 4 A 3 ° ADDW2 Raf CB$Q_F ILESPEC(R11) ; keep running sum 
5 7 oe 8 MOVL R7,R 
3 Be OA 609 CLRL R3 
0135F g 030C 610 BSBW GET_CHAR ; get next character 
DA 1 8 4 ei) BEQL EOS_G : quit if invalid or no more 
SF 0461'CF 51 0 0311 gig DIR1: 6BS R1,W*ALPHA_NUM,S7 
04 = «(51 1 0317 9% CMPB R1,#C_DOT 
8C 13 O31A 15 BEQL N2_C 
06 51 91 #O31C 616 CMPB R1,#C_SEMI 
87 13 O31F 617 BEQL N2_C 
08 51 91 835, 618 CMPB R1,#C_WILD 
4C 13 0324 619 BEQL S7_W 
b356 620 ; BRB $6 
0326 8621 


— 


1 
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$500 RMSSCAN_STRING, Main Parsing Routine ety 10:33:26 RMS .SRCIRMOSCAN.MAR; 1 . (15) vO 
$ 623 ; 
624 ; $6 - Search for a quoted string, could be foreign file spec or 
é ? i ; ANSI magtape none! . ° . 
627 : node::'’abc...xyz"’ 
6 628; 
6 629; -or- 
6 6350; 
é ° 13 “abc...xy2"" “abc...xy2''sn “abc...xy2''.3n 
Bee 
0B 51 91 3 635 S6 CMPB R1,#C_QUOTE ; do we have first quote 
£0 if 03 9 636 BNEQ  €08.G 
6 «=D B 637 10$: DECL R6 ; loop to find terminating quote 
BC 19 0320 638 BLSS E0S_G 3 no more? then exit 
22 87 91 O32F 639 CMPB (R73+,#*°A/''/ : is this it? 
F7 i 0352 640 BNEQ 10$ 3 no, continue 
56 OD 8 4 641 DECL R6 ; is there a next character? 
09 #19 6 ot6 BLSS 30$ 3; no, we have a string 
22 87 91 0338 64 CMPB (R7)+,#*A/''/ : is it a double quote? 
EE 13 0338 644 BEQL 10$ 3 yes, continue with string 
56 D6 0330 645 INCL R6 ; no, back up one character 
57 07 tee 14 DECL R7 : and process quoted name 
tat o78 ASSUME FSCBSB_FLDFLAGS EQ 0 
O34 650 30$: SSB #F SCBSV_QUOTED,R3 ; we have a quoted string which is 
68 10 88 0345 651 BISB #FSCBSM_NAME, (R11) 3; @mname of some type 
54 57 55 C3 0348 63¢ SUBL R5,R7,R4 
54 53 CO O034C 65 ADDL2 R3,R4 ; set flags if any 
53 4 Baer 654 CLRL R3 
2C AB 54 D 0351 655 MOVQ R4,FSCB$Q_NAME (R11) 
04 AB 54 AO 0355 656 ADDW2 R4,FSCBSQ_FILESPEC(R11) ; keep running sum 
gs 
b328 223 : if this was a node::"‘quoted’’ name then don't check for version number 
0359 661 
O36 666 ASSUME FSCBS$V_NODE EQ 0 
53 68 3 0359 664 BLBS (R11) ,EOS_E ; if node present then exit 
OOEF 5C = 665 BSBW GET_CHAR 3 get next character 
ac 1 32! $96 BEQL 3 quit if invalid or no more 
Ss FF «¢ C 61 66 SUBL3 #1,R7,R5 3 count the heading terminator 
06 51 91 65 668 CMPB R1,#C_DOT ; is there a null ype 
SF 13 68 669 BEQL $1 3; check for type then version # 
06 51 91 6A 670 CMPB R1,#C_SEMI ; is there a version number? 
40 12 0360 671 BNEQ  E0S_E ; no, exit 
0098 31 O36F 672 BRW $11 3; check for version # 
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RMSSCAN_STRING, Main Parsing Routine eae 7 9:33:36 LRMS SRCIRMOSCAN. MAR: 1 “ (38) 
7 674 ; 
of? s $7 - Finished device or directory and ready for name, type version 
7 ers . eos -> NAME1 
7 ors : alpha_numeric => 
7 679 ; » => NAME 
7 680 ; ; => NAME 
a oe octal 3 3 
; specia -> 
7 6 : 3 wi => $7 
4 oss 5 Lambda => NAMEO 
fe ? § §7_w SSB #FSCBSV_WILD,R3 3 set wildcard 
00D5 29 8 th $7: BSBW GET_CHAR ; get next character 
| ie 7 689 BEQL NAME : quit if invalid or no more 
F5 0461'CF 51 3 7B 690 BBS R1,W*ALPHA_NUM,S7 
0“ 51 91 1 69 CMPB =saR'1, #C_DOT 
gh 13 ; 4 69 BEQL NA 
06 1 8 6 69 CMPB R1,#C_SEMI 
¢ 13 0389 694 BEQL NAM 
0B 51 91 0388 695 CMPB  =—sa R11, #C_QUOTE 
96 13 938 696 BEQL 
08 51 £=91 0390 497 CMPB R1,#C_WILD 
DD 13 0393 698 BEQL S7_W 
0395 699 


z 
; 


—OOONOAOUSE We p 


SCAN sc RING 16-SEP-1984 AX/VMS Macro V04-00 
¥00.009 RMSSC Main Parsing Routine ~$Fb= 1382 98: 33 24 CRMs. SRCIJRMO OSCA N.MAR; 1 


= 


par" 
z= 
bee 
=z 
ao 


NAME1,NAME2 - a file name has been found 


57. 07 DECL R7 
ASSUME FSCBSB_FLDFLAGS EQ 0 
A NAME , (R11) 


BNEQ 10 ; was it a null name field? 
acscesv. NULL ,R3 


m 
— 
wo 
oa 
4d 
fos) 


OOOOODOOO 


NLOM> NNN eer 


PP Powowowownownowowovooo 


R4,FSCB$Q_NAME (R11) 
+e R4, -FSCBSQ~ PILESP EC(R11) 3; keep running sum 


erw uo 
—-o 
hoOWweoo 


“ 
wvw owe 


ASSUME FSCBSB_FLDFLAGS EQ 0 

nAne® 3; process name field 
MOVL R7,R5 

CMPB Rt #C_SEMI 
CMPB R1,#C_DOT 


BNEQ EOS_E 
BRB $10 


55 reset start addr 

count the leading terminator 
what was the terminator? 

";*' the version number 


‘," then type 


DOOO ooo w > 
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BO 22390 aS NNW 
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AGOCOCSCOCOCOCOOCOCOOOCOCOCOOOOOOOOOOOOoOo 
SNS 
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E 
™m 
@o 
wn” 
o 
@ 
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Fe a eae a apnea ade 
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8 2 ae os, 
L “ RING 19-35 o- lone 90: 33: 3 AX/VMS Macro V04-00 Page (78) | 


FILENAME ST 
AN_STRING, Main Parsing Routine RMS.SRCIR RMOS SCAN.MAR; 1 
C 1 ; 
: gi $10 - A ‘." was found so check for file type 
C 734 ; eos => TYPE! 
C 735 ; alphanumeric <-> $10 
¢C 7 § 3 ‘ => iyees 
C 737 ; : => TYPE 
03¢ 738 ; special => $10 
C 739 ; wild => $10 
3 740 ; Lambda => TYPEO 
C 741 ; 
7} ok: 
9 £8 ote $10_W: SSB #FSCBSV_WILD,R3 ; set wildcard 
008¢ 20 03c9 745 $10: BSBW GET ree ; get next character 
1 13 O3CC 746 BEQL TYPE : quit if invalid or no more 
FS 0461'CF 51 EO O3CE 747 BBS Ry 9g NUM,S10 
06 51 91 #0304 748 CMPB R1,#C_DOT 
28 13 0307 749 BEQL TY 
06 51 £91 #0309 750 CMPB R1,#C_SEMI 
23 13 03DC = 751 BEQL TYPE2~ 
08 1 91 O3DE Pe CMPB R1,#C_WILD 
E2 13 O361 75 BEaL «6s $10_W 
O3E3 8754 
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v04 RMSSCAN_STRING, Main Parsing Routine eat 7 93:33:36 RMS.SRCJRMOSCAN.MAR; 1 (fd) VA) 
E 38 : MAC 
E bee TYPE1,TYPE2 - a file type has been found 
E 738 ‘ 
: £69 TYPEO: DECL R7 
; r6¢ ASSUME FSCBSB_FLDFLAGS EQ 0 
—5 764 TYPE1: BISB #FSCBSM_TYPE,(R11) 
EB 765 SUBL R5,R7,RE 
EC 766 CMPW #1,R4 ; was it a null type field? 
8 EF 767 BNEQ 10 
Fi 768 SSB #F SCBSV_NULL,R3 
O3F5 £6? 10$ ADDL2 RS 
O3F8 770 MOVQ R4,FSCB$Q_TYPE(R11) 
OSFC 771 ADDW2 R4,FSCBSQ_FILESPEC(R11) 3; keep running sum 
0400 ore EOS_F RSB 
401 77 
tt or ASSUME FSCBSB_FLDFLAGS EQ 0 
b704 776 TYPE2: BSBB TYPEO 3; process type field 
0405 778 MOVL R7,R5 3; reset start addr 
Bene 444 INCL R7 ; count the leading terminator 
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v04-000 RMSSCAN_STRING, Main Parsing Routine “-SEP-1984 16:22:26 CRMS.SRCJRMOSCAN.MAR; 1 
1: 
: - oe 3 $11 -a';' or '." has been found so check for version 
460A 785; eos -> VERSION! 
40A 7? § ; numeric => $11.1 
40A 787; - -> $11-1 
40A 7 3 ; * -> VERSION! 
40A 789; Lambda => VERSIONO 
remy 790 ; 
40A 791 
| 40A 36 $11 BSBB GET_CHAR ; get next character 
= 40¢ 79 BEQL VERS IONO 3; Quit if invalid or no more 
11 4C°AF 2} E 4 3 794 BBS R1,B“NUMERIC,S11_1 
07 1 91 041 795 CMPB R1,#C_MINUS 
0c 13 46 796 Beal = $111 
2A «6OFF A? OQ 98 797 CMPB =1(R7) ,#*°A/*/ 
OF 12 O041C 798 BNEQ VERSIONO 
B25 799 SSB #FSCBSV_WILD,R3 
+): a | 8 f ane BRB VERSIONT 
28 10 0424 abe $11_1: BSBB GET_CHAR 3 get next character 
05 13 0426 80 BEQL VERSIONO ; Quit if invalid or no more 
F7 4C'AF 51 ~~» #€0 7 8 804 BBS R1,B“NUMERIC,S11_1 
420 805 
042D 806 ; - 
042D 807 ; VERSIONO,VERSION1 - a file type has been found 
042D 808 ; 
042D 809 
042D 810 VERSIONO: 
57 D7 042d 811 DECL R7 
pest aig 
042F 81 ASSUME FSCBSB_FLDFLAGS EQ 0 
O42F 814 
042F 815 VERSION1: 
68 40 8F 88 O42F 816 BISB #FSCBSM_VERSION, (R11) 
4.27.35 oo Be sir SUBL R5,R7,RS ; ‘ 
54 01 B1 0437 818 CMPW #1,R4 3 was it a null type field? 
04 12 Q43A 819 BNEQ 10 
043C 830 SSB #FSCBSV_NULL,R3 
54 53 co Bees 821 10$: ADDL2 R3,R4 
3C AB 54 7D 044 Bs¢ MOVQ R4,FSCB$Q_VERSION(R11) : 
04 AB 54 AO 0447 a ADDW2 R4,FSCBS$Q_FILESPEC(R11) ; keep running sum 
05 Rete $¢ RSB 
000C bec $52 NUMERIC:.WORD <1@C_OCTAL>!<18C_DECIMAL> 
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v04- GET_CHAR, Get Next Character and Classif 5-SEP-19 RMS .SRCIRMOSCAN.MAR; 1 
-SBTTL GET_CHAR, Get Next Character and Classify it 


+ 
+ 


Functional Description: 


8 
9 
44E 0; 
44E ie 
44E § ; 
44E : 
Beek 4; This routine gets the current character and classifies it into a 
beck 2% particular se 
Rete 3? ; Calling Sequence: 
044E 35 3 BSBW GET_CHAR 
044E 40 ; 
044E 41 ; Input Parameters: 
044E s : 
044E 43; R6/R7 = = Descriptor of string remaining 
044E 844 ; 
044E m2 : Implicit Inputs: 
044E 46 ; none 
044E 847 ; 
044E 848 ; Outputs: 
044E 849 ; 
044E 850 ; Z-bit - true if valid character, false if invalid or string exhausted 
044E 851; R1 - Character class to check 
044E b26 ; ; 
044E 853 ; Implicit Outputs: 
044E 854 ; R6/R7 = updated to next character 
044E 855; 
044E 856 ; Side Effects: 
044E 857; none 
044E 858 ; 
044E 859 ;-- 
044E 860 
044E 861 ASSUME C_LAMBDA EQ 0 
44E B66 
44E 863 GET_CHAR: 
56 D7 Q44E 864 DECL R6 ; any more chars? 
OA 19 0450 865 BLSS 10$ 3 nope 
51 87 QA Bo 38 866 MOVZBL (R7)+,R1 3 get char 
51 FBA6 CF41 9A 045 Ht MOVZBL U*CHAR_CLASSCR1].R 3; classify it 
05 0458 68 RSB 
045C 869 
57 D6 045C 70 10$: INCL R7 ; advance ptr : 
51 D4 8326 71 CLRL R1 3 set z-bit and invalid class 
05 046 i RSB 
0461 87 
0461 74; 
0461 75 ; Alpha-numeric character classes. ; ; 
461 76 ; Note that ‘-"' is considered alphabetic, so non-alphabetic uses 
£3) 77 ; must be checked before checking for ALPHA_NUM | 
608E 0461 879 ALPHA_NUM: -WORD <1@C_ALPHA>! = = letters | 
rh 80 <1aCc_OCTAL>! - ; digits 
4 1 <1aC_DECIMAL>! - ; digits 
46 ¢ <1aC_MINUS>! - id 
46 <1aC_UNDER>! - : 
46 84 <1aC~DOLLAR> ; 8 | 
| 


} 
| 
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v04-000 SCAN_DIRECTORY, Parse a Directory String 5-SEP-1984 93:33:36 LANS SRCIRMOSCAN. MAR; 1 . 3%, | 
rh § ~SBTTL SCAN_DIRECTORY, Parse a Directory String | 
ze 8 3++ | 
46 3 
rf ay 3; Functional Description: | 
rh 3 3 This routine will parse a directory string | 
046 94 ; Calling Sequence: | 
bee we 3 
rf 38 ; BSBW SCAN_DIRECTORY 
bes B38 ; Input Parameters: | 
046 vy 3 
046 900 ; R1 - Begining directory delemiter ‘'C* or ‘<' 
046 901 ; R6 - Length of string 
046 ote ; R7 - Address of next character 
046 903 ; R11 - Address of control block 
046 904 ; 
0463 905 ; Implicit Inputs: 
et 906 ; none 
046 907 ; 
0463 908 ; Outputs: 
ree 909 ; 
046 910 ; RO - true or false 
0463 911; R1,R2 = terminator character (R1 on input) 
0463 aig 3 R6 - Length of string 
0463 913; R? - Address of next character 
04635 914 ; 
0463 915 ; Implicit Outputs: 
0463 916; none 
ree 917 ; 
046 918 ; Side Effects: 
046 919 ; none 
046 920 ; 
046 921 5-- 
046 8s6 
046 35 SCAN_DIRECTORY: : 
55 DD 046 924 PUSHL R5 ; save start address of string 
55 D6 0465 925 INCL R5 : skip leading terminator 
52 FF A7 O2 81 0467 926 ADDB3 = #2,-1(R7) ,R2 3: save terminator character to look for 
046C 44 s NOTE: ‘C' +22 *)* an 
6C 928 ; oe pt 
| 
| 
| 
| 
| 


ro V04-00 
OSCAN.MAR; 1 


; quit if invalid or no more 


; get next character 
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v04-000 SCAN_DIRECTORY, Parse a Directory String ~3Eb=1 984 9:33:36 RMS .SRCJRMOSCAN.MAR; 1 : Bay | vO: 
49 61 ; | 
rh $e ; D1 - a possible Cgroup,member] directory is being scaned | 
49 964 ; eos -> ERROR 
49 965 ; octal => 01 
83 208 3 ° => D1L1 
492 967 : wild -> D1 | 
r) 44: : Lambda -> D2 (backing up) 
49 970 bi_w: SSB #FSCBSV_WILD,R3 ; set wildcard 
B6 10 049 72 D1: BSBB ss GET_CHAR ; get next character 
60 i8 198 398 DERR1: BEQL SERRS : guit if invalid or no more 
02 51 91 049A 97% CMPB =sR}1,#C_OCTAL 
F7 13 0490 975 BEQL D1 
oc 51 91 49F af8 CMPB R1,#C_COMMA 
0B 13 Q4A2 97 BEQL D1_1 
08 51 91 GAG 378 CMPB R1,#C_WILD 
E9 13 QO4A7 97 BEQL D1. 
56 D6 O04A9 980 INCL R6 ; we did not find a match so backup 
57 07 O4AB 981 DECL R7 ; and act Like we are parsing a normal 
30 11 O4AD oes BRB D2 type directory 
O4AF 98 
O4AF 6984 ; 
O4AF 985 ; we have a group member directory 
O4AF 986 ; 
Q4AF 987 
O4AF 988 D1_1: SSB #FSCBSV_GRPMBR ,R3 ; mark the first descriptor 
OODA 30 0483 989 BSBW FOUND DIR ; and stuff it 
4060 14 €0 pene 44 BBS #FSCBSV_NULL,(RO),DERR2 ; can't be UlC-format and null 
92 19 O4BA 8 992 D1_2 BSBB GET_ CHAR ; get next character 
3¢)60 13 «(04BCC C9 BEQL DERR 3: Quit if invalid or no more 
02 51 91 QO4BE 994 CMPB R1,#C_OCTAL 
F7 13 04C1 995 BEQL D1_2 
08 51 91 O4C3 996 CMPB R1,#C_WILD 
OD 13 04¢6 997 BEQL 1 
52 FF A? 91 O04C8 998 CMPB -1TR7) ,R2 : if nothing matches then we have 
2c 612 O04CC «(999 BNEQ DERR2 ; a problem : 
Ree 1300 SSB #F SCBSV_GRPMBR ,R3 ; mark the second descriptor 
04D 1008 DIR_DONE1: 
008D 31 Ree HF BRW DIR_DONE 
4D 1808 D1_0: SSB #FSCBSV_WILD,R3 ; mark wild : 
DF 11 0409 1006 BRB D1_2 3: rejoin processing 
| 
| 


ro 


ro V04-00 
OSCAN.MAR; 1 
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; quit if invalid or no more 


; quit if invalid or no more 


; get next character 
; get next character 


- a normal directory has been found 
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D3_2 - We have an ellipsis 


eos => ERROR 
gtpha_mmeric => D2 

=> DIR_DONEX 
> => DIRZDONEX 
wild => D 
Lambda => ERROR 


NOTE: The elips flags must be set in the previous 
directory descriptor 

“+ FSCBSB_DIRS(R11),RO 
CMP * #FSCBSC_MAXDIR 


MOVAQ FSCBSQ_DIRECTORY1(R11)CROJ,RO 
SSB #FSCBSU_ELIPS, (RO) 


et number of current directory 
ack up one 

is there a descriptor for it? 
no 


get address of descriptor 
set flag 


MOVL R7 start next directory after elips 
BSBW GET_CHAR get next character 
BEQL quit if invalid or no more 


DIR-ERROR 
BBS R1,Q*ALPHA_NUM,D2 
CMPB 0 =1(R7) ,R2 
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v04-000 SCAN_DIRECTORY, Parse a Directory String §- aaah 90:33:36 FRMS. SRCIRMOSCAN-MAR: 1 ° (38) 
$ 1113 DIR_DONE: 
. ww 1114 BSBB FOUND_DIR ; we found a directory 
01 03 A 91 64 1115 CMPB FSCBSB_DIRS(R11),41 ; is sere nee then one dir? 
1 13 256 1138 BEQL DIR_DOREX i no, oener 
0 03 3 #4 : A i ae I Breese DIRSCAIID, »#FSCBSC_MAXDIR ; more hen the descriptors? 
: yes 
is 6 16 €0 oF 148 BBS #F SCBSV_GRPMBR, (RO) DIR * Te 3 ts this group me + type? 
07 60 14 al 574 1120 BBC #F SCBSV-NULL (RO), DiR_ + branch if not nul 
03 AB «O97 «0578 «1121 DECB =e FSCBSB BIRS{ Cait > remove this directa 
beee 1 ¢ SSB #FSCBST_ROO te. R3 ¢ set the concealed flag 
57F 1124 DIR_DONEX: 3: exit from eo} lips 
55 BEDO OS7F 1125 POPL R5 : avounee orginal start 
50 01 QA 288 11 § MOVZBL #1,R0 : dl success 
05 05 11 RSB F 
94 1128 
0586 1129 DIR_DONEVIC: 
F560 «614~=«CO#€E:?N a+ 1 ? BBC #FSCBSV_NULL,(RO),DIR_DONEX ; can't be UIC-format and null 
iN 1133 DIR_ERROR: 
55 8EDO OS8A 113 POPL R5 i restore stack 
50 D4 Beep \ize CLRL RO : signal error 
0S OS8F 1135 RSB 3 return 
8238 1136 
590 1137; : 
0590 1138 : 3; Process a directory 
0590 1139 
0590 1140 FOUND _DIR: 
50 03 AB 9A 0590 1141 MOVZBL excess DIRS(R11) ,RO 3; get number of directories 
08 50 91 $338 1196 CMPB 0,#F STBSC “MAXDIR 3 more then the descriptors? 
18 14 597 114 BGTR yi ; yes 
54 57 55 C3 0599 1144 SUBL3 R5,R7,R4 : find size 
54 D7 O59D 1145 DECL RS 3 remove trotting terminator 
04 12 OS9F 1146 BNEQ 10$ ; if it is null 
OSA1 1147 $$B #F SCBSV_NULL,,R3 ; set tlag. 
54 53 CO OQO5SA5 1148 10$: ADDL2 R3,R ; copy flags into descriptor 
50 00C4 (B40 7E OSAB 1149 MOVAQ FSCBS$O DIRECTORY1(R11)CROJ,RO ; get addr of descriptor 
60 54 7D QSAE 1150 MOVQ 4,(R ; copy descriptor 
03 96 0581 1151 20$:  INCB  FSCB$B_DIRS(R11) : count it 
5 D4 0584 1126 CLRL R 5 aleoe flag 
55 57 00 0586 115 MOVL R7,R5 3 update start address 
05 0589 1154 RSB 3; NOTE: leave r0 = addr of desc 
OSBA 1155 
OSBA 1156 .END : End of module 
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RMOSCAN 
Symbol table RMS. eRCIRA MOS SCAN.MAR; 1 v04 


- ABS. 00000000 < 0.) 00 ¢ QO.) NOPIC USR CON AB 
RMSRMSF ILENAME QOO005BA ( 1466.) O01 ¢ 1.) PIC USR CON” RE 
SABSS 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON AB 


$ueocweweeeeceeeoewecececes$ 


a NOE XE om NOWRT NOVEC BYTE 
OSHR EXE NOWRT NOVEC BYTE 
OSHR EXE RD WRT NOVEC BYTE 


- or 
own 
rrr 
Z22]2 


36 00378 R 1 
0 R 1 
S7_W 72 R 1 
SCAN_DIRECTORY 465 R 1 
TYPED 3 R 1 
TYPE1 0 R 1 
TYPE2 0000401 R 1 
VERSIONO 000042D R 1 
VERSION 0000042F R 01 
Son ewnoeaocaenwmowoae te 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
) | 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00:00:00.0° 00:00:01.19 
ponnens processing 108 00:00:00.68 00:00:03.60 

200 00:00:04.68 00:00:14.77 
Symbol tab.e sort 0 00:00:00.30 B01 08 300.33 

s2 188 i SE a 00:00:06.9 

Svabot table output 15 00:00:00.09 00:00:00.16 
Psect synopsis output 1 00:00:00.01 00:00:00.20 
Cross-reference output g 00:00:00.00 00:00:00.00 
Assembler run totals 54 00:00:08.11 00:00:27.71 


27494 bytes (54 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table grace allocated to hold 197 non-local and 49 local symbols. 
1156 source Lines were read in Pass 1 "aie object records in Pass 2 


12 pages of virtual memory were used to define macros. 


weer eee nee e me mene ee moe mea} 


Macro Library name Macros defined 


~$33380UA28: RMS. “OBJ 3RRS -MLB; ! 3 
$5 geDUACS: SYS.0B8 MLB; 1 0 
BE Meets STARLET. MLB; 2 4 

+Bs5580u att Libraries) 7 


The working set Limit was 1200 pages. 
| 
192 GETS were required to define 7 macros. | 


There were no errors, warnings or information messages. 


; s 
RMOSCAN SCAN FILENAME STRING 16-SEP-1984 00:35:34 VAX/VMS Macro v04-00 Page RMC 
VAX-11 Macro Run Statistics green 4 90:33:36 CAMS SRCJRMOSCAN. MAR: 1 : (38) v04 


MACRO/LIS=LIS$:RMOSCAN/OBJ=0BJ$:RMOSCAN MSRC$:RMOSCAN/UPDATE=(ENH$: RMOSCAN) +EXECML$/LIB+LIB$:RMS/LIB 
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